home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr48
/
vdl020d.zip
/
VALARMHI.DOC
< prev
next >
Wrap
Text File
|
1993-04-14
|
3KB
|
105 lines
{
══════════════════════════════════════════════════════════════════════════════
Visionix Hi-Level RealTime Alarm Clock Functions Unit (VALARMHI)
Copyright 1991,1992 Visionix
ALL RIGHTS RESERVED
──────────────────────────────────────────────────────────────────────────────
Revision history in reverse chronological order:
Initials Date Comment
──────── ──────── ──────────────────────────────────────────────────────────
lpg 12/05/92 Created AlarmHi Unit
══════════════════════════════════════════════════════════════════════════════
Caveats/Known Bugs
When Reaches end of Alarm List, List still Active (Error)
AFFECTS: NewAlarm,AlarmListProc,NextAlarmOn
When Selecting next Active Alarm, Incorrectly selects those
of another day.
AFFECTS: NextAlarmOn
══════════════════════════════════════════════════════════════════════════════
}
Unit VAlarmHi;
USES
VGen,
VAlarm,
VDates;
{PRIVATE STUFF}
TYPE
TRoot = RECORD
List : POINTER; { Pointer to Alarm Item List }
SetFlag : BOOLEAN; { Are any Alarm Items Active? }
NextCall : POINTER; { Pointer to Next Call Item }
END;
PRoot = ^TRoot;
VAR
ListOK : BOOLEAN;
Root : PRoot;
CONST
Cnt : WORD = 0;
{PUBLIC STUFf}
TYPE
TAlarm = RECORD { Public Item Record }
ID : POINTER; { Alarm ID }
Time : TTime; { Alarm Time }
Date : TDate; { Alarm Date, 0 = Daily }
Called : BOOLEAN; { Has Alarm been Called? }
END;
PAlarm = ^TAlarm;
Procedure DumpItem( P : POINTER );
Procedure DumpList;
{------------------------------}
{ Primary Alarm List Functions }
{------------------------------}
Procedure InitAlarmList;
Procedure QuitAlarmList;
{----------------------------}
{ Basic Alarm List Functions }
{----------------------------}
Function NewAlarm( Time : TTime;
Date : TDate ) : PAlarm;
Procedure DisposeAlarm( ID : POINTER );
Procedure ResetAlarm( ID : POINTER;
Time : TTime;
Date : TDate );
Function AlarmCallStatus( ID : POINTER ) : BOOLEAN;
Function AlarmCallAndDispose( ID : POINTER ) : BOOLEAN;